home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1998 January / PC Answers Issue 49 Cover CD January 1998.iso / Apps / Director / DATA.Z / Synchronized Media.dir / Standard Elements_5_Paging Handlers.ls < prev    next >
Encoding:
Text File  |  1997-05-10  |  1.7 KB  |  39 lines
  1. on DoDownPage
  2.   global gSynchMediaPagePropertyList
  3.   if (the name of the member of sprite the clickOn contains "Blank") = 0 then
  4.     doButton(gSynchMediaPagePropertyList)
  5.     if the result = 1 then
  6.       set pageSprite to the clickOn - 2
  7.       puppetSprite(pageSprite, 1)
  8.       set the member of sprite pageSprite to the number of the member of sprite pageSprite + 1
  9.       set pageMemberName to the name of the member of sprite pageSprite
  10.       if (pageMemberName contains "Last") and (pageMemberName contains "Page") then
  11.         puppetSprite(the clickOn, 1)
  12.         set the member of sprite the clickOn to getaProp(gSynchMediaPagePropertyList, the clickOn) - 1
  13.       end if
  14.       puppetSprite(the clickOn - 1, 1)
  15.       set the member of sprite (the clickOn - 1) to getaProp(gSynchMediaPagePropertyList, the clickOn - 1)
  16.     end if
  17.   end if
  18. end
  19.  
  20. on DoUpPage
  21.   global gSynchMediaPagePropertyList
  22.   if (the name of the member of sprite the clickOn contains "Blank") = 0 then
  23.     doButton(gSynchMediaPagePropertyList)
  24.     puppetSprite(the clickOn, 1)
  25.     if the result = 1 then
  26.       set pageSprite to the clickOn - 1
  27.       puppetSprite(pageSprite, 1)
  28.       set the member of sprite pageSprite to the number of the member of sprite pageSprite - 1
  29.       set pageMemberName to the name of the member of sprite pageSprite
  30.       if (pageMemberName contains "First") and (pageMemberName contains "Page") then
  31.         puppetSprite(the clickOn, 1)
  32.         set the member of sprite the clickOn to getaProp(gSynchMediaPagePropertyList, the clickOn) - 1
  33.       end if
  34.       puppetSprite(the clickOn + 1, 1)
  35.       set the member of sprite (the clickOn + 1) to getaProp(gSynchMediaPagePropertyList, the clickOn + 1)
  36.     end if
  37.   end if
  38. end
  39.